home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / parsed / select.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-04  |  2.6 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form frmSelect 
  3.    Caption         =   "Parse Demo - Function Selection"
  4.    ClientHeight    =   3105
  5.    ClientLeft      =   2355
  6.    ClientTop       =   1800
  7.    ClientWidth     =   4860
  8.    Height          =   3540
  9.    Icon            =   SELECT.FRX:0000
  10.    Left            =   2280
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3105
  13.    ScaleWidth      =   4860
  14.    Top             =   1440
  15.    Width           =   5010
  16.    Begin OptionButton optParse 
  17.       Caption         =   "ParseAndFillArray&1%()"
  18.       Height          =   270
  19.       Index           =   0
  20.       Left            =   780
  21.       TabIndex        =   0
  22.       Top             =   690
  23.       Value           =   -1  'True
  24.       Width           =   3000
  25.    End
  26.    Begin OptionButton optParse 
  27.       Caption         =   "ParseAndFillArray&2%()"
  28.       Height          =   270
  29.       Index           =   1
  30.       Left            =   780
  31.       TabIndex        =   1
  32.       Top             =   1080
  33.       Width           =   3000
  34.    End
  35.    Begin OptionButton optParse 
  36.       Caption         =   "Pars&eAndFill&ListBox%()"
  37.       Height          =   270
  38.       Index           =   2
  39.       Left            =   780
  40.       TabIndex        =   2
  41.       Top             =   1500
  42.       Width           =   3000
  43.    End
  44.    Begin CommandButton cmdCancel 
  45.       Cancel          =   -1  'True
  46.       Caption         =   "&Cancel"
  47.       Height          =   375
  48.       Left            =   2580
  49.       TabIndex        =   4
  50.       Top             =   2400
  51.       Width           =   1755
  52.    End
  53.    Begin CommandButton cmdSelect 
  54.       Caption         =   "&Select"
  55.       Default         =   -1  'True
  56.       Height          =   375
  57.       Left            =   540
  58.       TabIndex        =   3
  59.       Top             =   2400
  60.       Width           =   1695
  61.    End
  62.    Begin Label Label1 
  63.       Alignment       =   2  'Center
  64.       BorderStyle     =   1  'Fixed Single
  65.       Caption         =   "Select Function To Test:"
  66.       Height          =   255
  67.       Left            =   1140
  68.       TabIndex        =   5
  69.       Top             =   180
  70.       Width           =   2475
  71.    End
  72.    Begin Shape Shape1 
  73.       Height          =   1575
  74.       Left            =   660
  75.       Shape           =   4  'Rounded Rectangle
  76.       Top             =   540
  77.       Width           =   3555
  78.    End
  79. Option Explicit
  80. Sub cmdCancel_Click ()
  81.     SetFuncSelected Me, False
  82.     SetSelectResult False
  83.     Unload Me
  84. End Sub
  85. Sub cmdSelect_Click ()
  86.     SetFuncSelected Me, True
  87.     SetSelectResult True
  88.     Unload Me
  89. End Sub
  90.